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MODULE MAPVBN ( aes GUAGE, (BLIS$32), 
ESHA. BLLERI? 
BEGIN 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOF TWARE Is FURNISHED UNDER A ak ICENSE AND MAY BE USED AND COPIED 
ONLY ACCORDANCE W THE TERMS OF SUCH IC 

THIS SOFT 
¢ HERW! 
ie ORANSFERRED 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
:* . 


i DIGITAL ASSUMES NO RESPONS BILIT 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH 


L 
S NOT SUPPLIED BY DIGITAL. 


'+¢ 
1 


FACILITY: 
i ABSTRACT: 
This routine maps the prec? t tes virtual blocks to their 
corresponding logical blocks using the supplied window. 
The window is turned if necessary. 

i ENVIRONMENT: 


STARLET operating system, including privileged system services 
and internal exec routines. 


FIIACP Structure Level 1 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 3-Mar-1977 12:20 
i MODIFIED BY: 
v02-002 LMP0005S Mark Pilant, 29-Dec-1981 15:20 
Add support for Cathedral windows. 
v02-001 ACG0229 w C. Goldst 22-Dec-1981 19:44 


Move updating of APASSCL “TURN ay TORN WINDOW 
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v02-000 ACG0167 Andrew C. Goldstein 7-May-1980 18:51 
Previous revision history moved to F11A.REV 
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GLOBAL ROUTINE MAP_VBN (VBN, WINDOW, BLOCK_COUNT, UNMAPPED_BLOCKS) = 


++ 


FUNCTIONAL DESCRIPTION: 


This routine maps the pres reves virtual blocks to their 
corresponding logical blocks using the supplied window. 
the window is turned if necessary. 


i CALLING SEQUENCE: 


MAP _VBN (ARG1, ARG2, ARG3, ARG4) 


i INPUT PARAMETERS: 


ARG1: desired VBN 

ARG2: address of window to use 

ARGS: number of blocks to map 
if not present, 1 


i IMPLICIT INPUTS: 
NONE 


i OUTPUT PARAMETERS: 
ARGS 


: if present, addres to store number of unmapped blocks 


i IMPLICIT OUTPUTS: 
NONE 


i ROUTINE VALUE: 


starting LBN or -1 if no map 


i SIDE EFFECTS: 


window may be turned, header may be read 


BEGIN 

MAP 
WINDOW : REF BBLOCK; 

LOCAL 
COUNT, ! number of blocks to map 
UNMAPPED, ' address to store unmapped block count 
DUMMY, ' place for above by default 
FCB : REF BBLOCK, ' address of FCB of file 
HEADER : REF BBLOCK, ' address of file header 
LBN; ! resulting LBN of map 

EXTERNAL 


PMSS$GL_TURN : ADDRESSING_MODE (GENERAL) ; 


system count of window turns 
EXTERNAL ROUTINE 


scan window map 
read file header 
turn window 


NDOW 
READ_HEADER, 
TURN~WINDOW, 


— 


Pp 
IMAPVBN.B32:1 9 (2 


MOt 
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; } : c38 REMAP_FILE; ! remap the file completely 

, ¥ 4 

4 5 440 ! Check the VBN for legality - i.e., non-zero and within the file size 

: 128 0441 ' given in the FCB. 

: 129 tts : 

; 150 44 

: 151 444 FCB = .WINDOWCWCBSL_FCBI; 

. é 0445 IF .VBN EQL 0 OR .VBN GTRU .FCBCFCBSL_FILESIZE) 

: : t Bees THEN RETURN -1; 

3 133 0448 ' If the file is Gul prenceder, scan the extension FCB's for the one 

1? 0449 ! containing the desired VBN. The right FCB is identified by noting that 
.- sar 0450 : there are no more, or that the start VBN of the next one is greater than 
: 138 0451 ! the desired VBN. 

; 139 ett ! 

3; 140 045 

: (141 0454 UNTIL 

3 146 0455 (IF .FCBCFCBSL_EXFCB) EQL 0 THEN 1 

; re bees ELSE -BBLOCK C.FCBCFCBSL_EXFCBJ, FCBSL_STVBN] GTRU .VBN 

3; 6145 0458 DO FCB = .FCBCFCBSL_EXF(B); 

: 146 0459 

3 «147 0460 ! Default the optional arguments. 

3; «(148 0461 : 

3 «149 046 

; 150 046 COUNT = (IF ACTUALCOUNT GEQ 3 

: «151 0464 THEN .BLOCK_COUNT 

3 136 0465 ELSE 1 

3; 0466 F: 

3: «6154 0467 UNMAPPED = (IF ACTUALCOUNT GEQ 4 

s 135 0468 THEN .UNMAPPED_BLOCKS 

; 156 0469 ELSE DUMMY 

: 157 0470 F; 

: 158 0471 ; 

; «6159 047 ! If an extension was done on a file which was has Cathedral windows, it is 
; 160 047 ! necessary to remap the file to correctly map the extended portion of the 
; «6161 0474 ' file. 

eae 

> «164 0477 IF .WINDOWCWCBSV_CATHEDRAL] AND NOT .WINDOWCWCBSV_COMPLETE) 

: 19° Boze THEN REMAP_FILE 7); 

: 167 480 ! Attempt to map the transfer with the existing window. If the map fails 
; 168 481 ! completely, turn the window and try once more. When any blocks map, 

3; «6169 bees ! return the relevant data. 

: 170 04 ! 

3: «171 0484 

: 1% 6 5 DECR | FROM 2 T0 1 DO 

; 107 r $ BEGIN 

> 175 be 8 LBN = KERNEL_CALL (MAP_WINDOW, .VBN, .WINDOW. .COUNT, .UNMAPPED); 

: ive a¢80 IF .LBN NEQ =1 THEN EXTTLOOP; 

: 178 491 HEADER = READ_HEADER (0, .FCB); 

s 179 Ree KERNEL_CALL (TURN_WINDOW -WINDOW, .HEADER, -VBN, .FCBCFCBSL_STVBNJ); 
> 180 049 PMSSGL-TURN = .PMS$GL_TURN + 1; ' count window turn in PMS data base 
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END; 
Beg RETURN .LBN; 
0 1 END; ! end of routine MAP_VBN 


.TITLE MAPVBN 
“IDENT \V04-000\ 
.EXTRN PMSS$GL_TURN, MAP_WINDOW 
~«EXTRN READ_HEADER, TURN WINDOW 
«EXTRN REMAP_FILE, SYSSCAKRNL 
.PSECT $CODE$,NOWRT,2 
O7FC 00000 .ENTRY MAP_VBN, Save R2,R3,R4,R5,R6,R7,RB,RI.RI0 ; 0380 
5A 000000006 9F i 99002 MOV a#SYSSCMKRNL, R10 ; 
SE 04 C2 00009 SUBL2 #4, SP : 
3 08 AC 00 0000C MOVL WINDOW, R2 + 0444 
5 18 A2 DO 90010 MOVL  24(R2). FCB ; 
55 04 AC 00 0014 MOVL VBN, R5 + 0445 
06 1 00018 BEQL a F 
38 55 D1 OOO1A CMPL RS, 56(FCB) : 
04 18 OO01E BLEQU 2$ ; 
50 01 CE 00020 1$: MNEGL #1, RO + 0446 
04 00023 RET ; 
50 oc Ad 09 00024 2$: MOVL 12<FCB), RO + 0455 
0B 13 00028 BEQL «= 3 ; 
55 2c AO D1 0002A CMPL 44 (RO), RS + 0456 
05 1A 0002E BGTRU 3$ F 
53 50 D0 00030 MOVL RO, FCB : 0458 
€F 11 00 : BRB 2$ : 
03 6C 91 00035 3$ CMPB ss « CAP), #3 + 0463 
06 1F 00038 BLSSU4$ ; 
58 0c AC DO 0003, MOVL | BLOCK_COUNT, COUNT > 0464 
0 11 0003€ BRB 5$ ; 
58 1 00 9040 4$: MOVL #1, COUNT + 0463 
04 6¢ 91 04 5$: CMPB sé), #4 + 0467 
6 1F 00 46 BLSSU 6$ ; 
57 10 aC DO 0004 MOVL UNMAPPED BLOCKS, UNMAPPED > 0468 
03 11 0004C¢ BRB $ ; 
57 E 4: Due $$: MOVAB DUMMY UNMAPPED : 04 7 
OA 0B Ag § E 3 $: BBC #6, 11(R2), : 0477 
05 0B £0 00056 BBS #5. 11(R2). 8S : 
00006 cr FB 05 CALLS #0, REMAP_FILE : 0478 
4 D gs: MOVL : > 049 
DD $: PUSHL UNMAPPED > 048 
0104 &8F BB PUSHR #*M<R2,R8> ; 
5 DD PUSHL 5 : | 
4 Dd 00068 PUSHL #4 ; 
E pp D PUSHL SP : | 
00006 CF 9F F PUSHAB MAP_WINDOW ; 
,.¢ 3 CALLS #7, ~SYS$CMKRNL ; 
6 0 D 1 MOVL RO. L ; | 
FRFFFFFF 8F 6 D 007 CMPL LBN, #-1 F 
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12288-1382 2:29:45 DISKSVMSMASTER:CF11A.SRCIJMAPVBN.B32; fee * (2) 
3 12 9 NEQ 10$ ; ; 
DD PUSHL FCB 7 0491 : 
D4 4 CLRL -($P) : ; 
00006 cf Q FB 0 6 CALLS "2, READ_HEADER : | : 
9 D B OVL RO, HEADER : : 
2c «=6—A3 «OOD 00 ; PUSHL  44(FCB) + 0492 ; 
DD 00 PUSHL R5 s ; 
0204 F 6B 8 33 PUSHR #*M<R2,R9> : ; 
4 DD 0009 PUSHL ws : : 
E DD 00099 USHL : : 
00006 CF 9F 0009B PUSHAB ye : : 
A 7 OF BOSE CALLS UST SSCKRNL ; : 
000000006 00 »D Ae INCL 3 0493 ; 
4 4 F5 000A SOBGTR Ss6t ; 0485 : 
50 6 DO OO00AB 10S: VL Tay) RO + 0497 ; 
04 OOOAE ET 3 0499 : 
; Routine Size: 175 bytes, Routine Base: SCODES + 0000 
: 187 0500 1 : 
: 188 0501 1 END ; 
> 189 0502 0 ELUDOM é 
PSECT SUMMARY 
3 Name Bytes Attributes ; 
: $CODES 175 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
: Library Statistics : 
Bee ee ee ee i Symbols -------- Pages Processing ; 
; File Totai Loaded Percent Mapped Time : 
; .$255$DUA28:CSYSLIBILIB.L32;1 18619 7 0 1000 00:01.9 3 
| ‘ 
; COMMAND QUALIFIERS : 
| Py 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=L1S$:MAPVBN/OBJ=0BJ$:MAPVBN MSRC$:MAPVBN/UPDATE=(ENH$:MAPVBN) ; 
3 Size: 175 code + 0 data bytes : 
; Run Time: 00:07.4 3 
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; Elap 

; re reey 48 

Lines/CPU Rin 1398 
Laut Used: 99 pages 

; Compilation Complete 
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